home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1998 January
/
Macworld (1998-01).dmg
/
Serious Demos
/
Visual MacStandardBasic Demo
/
Samples
/
MultiForm Demo
/
Form1
next >
Wrap
Text File
|
1997-10-11
|
2KB
|
118 lines
MacStandardBasic Form Version 3.0
FormBegin
Name=Form1
Title=Form1
Left=54
Top=133
Width=338
Height=150
Sub Proc.=None
Visible=1
Style=5
Font=Geneva
FontSize=12
FontStyle=0
Show Grid=1
Grid Snap=1
Grid Size=8
Min. Width=100
Max. Width=2000
Min. Height=100
Max. Height=2000
AutoCenter=0
ForeColor=0 0 0
BackColor=65535 65535 65535
FormEnd
ControlBegin=TextBox
Name=TextBox1
Text=TextBox1
Left (x)=40
Top (y)=32
Width=257
Height=17
Sub Proc.=None
Visible=1
Value=1
Enabled=1
Font=Geneva
FontSize=12
FontStyle=0
ScrollBar=0
Read Only=0
Opt20=1
Frame=1
ForeColor=0 0 0
BackColor=65535 65535 65535
ControlEnd
ControlBegin=ScrollBar
Name=ScrollBar1
Left (x)=40
Top (y)=64
Width=264
Height=16
Sub Proc.=None
Visible=1
Value=1
Enabled=1
Min. Value=1
Max. Value=10
PgUpDn=3
Opt20=1
ControlEnd
ControlBegin=Button
Name=Button1
Text=Set TextBox in Form 2
Left (x)=48
Top (y)=96
Width=249
Height=33
Sub Proc.=Button1_Click
Visible=1
Value=0
Enabled=1
Opt20=1
ControlEnd
Start
Dim A
CreateTheMenus
Form Form3
Form Form2
Form Form1
A=0
Do While A=0
Loop
Finish
Sub CreateTheMenus( )
MenuApple
MenuAddItem 1, "About Multiform Demo", "", AboutTheApp
MenuDesk
MenuAdd 2, "File", None
MenuAddItem 2, "Quit", "Q", QuitTheApp
EndSub
Sub QuitTheApp( )
End
EndSub
Sub AboutTheApp( )
Dim a
a = MsgBox ("Multiform Demo", 0)
EndSub
Sub Button1_Click( )
Dim a
If CtlExist(Form2.TextBox1) then
CtlText Form2.TextBox1, "Set by Form1", 0
EndIf
EndSub